|
 |
 |
| |
<%
Dim oCon,objRs,strSQL,strCaseTypeName,caseID,bnISAfter,strSQLNext,rsNextRec
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open C_CONNECTION_STRING
caseID=Request("ID")
iCaseTypeID=Request("txtCaseTypeID")
if clng(iCaseTypeID)>0 then
caseID=request("txtCaseID")
strSQLNext="select * from CaseStudyTable where CaseStudyType_ID=" & iCaseTypeID
set rsNextRec=oCon.Execute(strSQLNext)
IF NOT (rsNextRec.eof and rsNextRec.bof)then
Do While Not rsNextRec.eof
if CLNG(caseID)=rsNextRec(0).VALUE then
rsNextRec.movenext
if not rsNextRec.eof then
caseID=rsNextRec(0).value
end if
EXIT DO
end if
rsNextRec.movenext
LOOP
END IF
rsNextRec.Close
set rsNextRec= Nothing
end if
strSQL = "SELECT CaseStudyTypeTable.CaseStudyType_ID, CaseStudyTable.CaseStudy_ID, CaseStudyTable.CaseStudy_Name, CaseStudyTable.CaseStudy_Desc, CaseStudyTypeTable.CaseStudyType_Name, CaseStudyImageTable.CaseStudyImage_isAfter, CaseStudyImageTable.CaseStudyImage_ID"
strSQL = strSQL & " FROM CaseStudyTypeTable INNER JOIN (CaseStudyTable LEFT JOIN CaseStudyImageTable ON CaseStudyTable.CaseStudy_ID = CaseStudyImageTable.CaseStudy_ID) ON CaseStudyTypeTable.CaseStudyType_ID = CaseStudyTable.CaseStudyType_ID"
strSQL = strSQL & " WHERE (((CaseStudyTable.CaseStudy_ID)=" & caseID & "))"
strSQL = strSQL & " ORDER BY CaseStudyImageTable.CaseStudyImage_ID;"
set objRs=oCon.Execute(strSQL)
bnDescFlag=False
%>
<%
If not (objRs.bof and objRs.eof) then
iCaseStudyType_ID=objRs.Fields("CaseStudyType_ID")
strCaseTypeDesc=objRs.Fields("CaseStudy_Desc").Value
strCaseTypeName=objRs("CaseStudyType_Name")
strCaseName=objRs("CaseStudy_Name")
%>
|
|
<%
Dim iColCount,strlink1,strlink2
While Not objRs.EOF
if objRs.Fields("CaseStudyImage_ID").Value <>"" Then
%>
 &mBeforeFlag=Before"> |
&mBeforeFlag=After"> |
<%
else
%>
|
|
<%
End if
objRs.MoveNext
Wend
%>
<%
End If
objRs.Close
Set objRs = Nothing
oCon.Close
Set oCon=Nothing
%>
|
|
|
|
